home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / Internal_120.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  578 b   |  33 lines
  1. property spriteNum, sn3, sn
  2. global lfo1, lfo2
  3.  
  4. on beginSprite me
  5.   sn = sprite(spriteNum)
  6.   sn3 = sprite(spriteNum - 3)
  7. end
  8.  
  9. on mouseUp me
  10.   cl = (the mouseH - sn.left) / 18
  11.   sprite(spriteNum + 6).locH = sprite(spriteNum).left + (18 * cl) + 12
  12.   case cl of
  13.     0:
  14.       sn3.osc.osctype = "sine"
  15.     1:
  16.       sn3.osc.osctype = "saw2"
  17.     2:
  18.       sn3.osc.osctype = "square2"
  19.     3:
  20.       sn3.osc.osctype = "square1"
  21.     4:
  22.       sn3.osc.osctype = "saw1"
  23.   end case
  24. end
  25.  
  26. on exitFrame me
  27.   if spriteNum = 359 then
  28.     lfo1 = sn3.osc.val
  29.   else
  30.     lfo2 = sn3.osc.val
  31.   end if
  32. end
  33.